home *** CD-ROM | disk | FTP | other *** search
/ Golf Digest's Best Places to Play / Golf Digest's Best Places to Play.iso / diamond / dbrs_ibm.dir / 00010_Script_WhatScript < prev    next >
Text File  |  1995-05-15  |  1KB  |  48 lines
  1. on exitFrame
  2.   go to marker(0)+4
  3. end
  4.  
  5.  
  6. on mouseDown
  7.   set ButtonNum=the clickOn
  8.   if ButtonNum>0 then
  9.     set ButtonName=the name of cast (the castNum of sprite ButtonNum)
  10.     if (ButtonNum >1) and (ButtonNum < 9) then
  11.       WhatPick(ButtonNum)  
  12.     end if
  13.     if chars(ButtonName,1,6) = "ToMain" then
  14.       if PressBtn(ButtonNum) then
  15.         AllPuppetsOff
  16.         PlayIt("WhatExitSound")
  17.         go to marker (0)+5
  18.       end if
  19.     end if
  20.     if chars(ButtonName,1,4) = "Help" then
  21.       if PressBtn(ButtonNum) then
  22.         showHelp
  23.         puppetsprite ButtonNum, true
  24.         set the castNum of sprite ButtonNum to the number of cast (ButtonName)
  25.         puppetsprite ButtonNum, false
  26.       end if
  27.     end if
  28.   end if
  29. end mouseDown
  30.  
  31. on WhatPick ButtonNum
  32.   puppetsound 0
  33.   set ButtonName=the name of cast (the castNum of sprite ButtonNum)
  34.   repeat with i=2 to 8
  35.     puppetSprite i, true
  36.     set the castNum of Sprite i to the number of cast ("What"&i)
  37.     puppetSprite i, false
  38.   end repeat
  39.   puppetSprite ButtonNum, true
  40.   puppetSprite 10, true
  41.   puppetSprite 11, true
  42.   set the castNum of sprite ButtonNum to the number of cast (ButtonName & "Down")
  43.   set the castNum of sprite 10 to the number of cast (ButtonName & "Diamond")
  44.   set the castNum of sprite 11 to the number of cast (ButtonName & "Text")
  45.   puppetsound ButtonName & "Sound"
  46.   updateStage
  47. end WhatPick
  48.